
'-------------------------------------------------
' Hands-On 3-1
' No code for this Hands-On.
' Please follow the instructions in the book.
'-------------------------------------------------


'-------------------------------------------------
' Hands-On 3-2
' No code for this Hands-On.
' Please follow the instructions in the book.
'-------------------------------------------------


'-------------------------------------------------
' Hands-On 3-3
' No code for this Hands-On.
' Please follow the instructions in the book.
'-------------------------------------------------


'-------------------------------------------------
' Hands-On 3-4
' No code for this Hands-On.
' Please follow the instructions in the book.
'-------------------------------------------------


'-------------------------------------------------
' Hands-On 3-5
'-------------------------------------------------


Sub MoveTextBox()
   With ActiveSheet.Shapes(1)
  'With ActiveSheet.Shapes("TextBox 1")
    .Select
    .Left = 0
    .Top = 0
  End With
End Sub



'-------------------------------------------------
' Hands-On 3-6
'-------------------------------------------------

Sub MoveCircle()
    With ActiveSheet.Shapes(2)
        .Select
        .Left = 0
        .Top = 0
    End With
End Sub


'-------------------------------------------------
' Hands-On 3-7
'-------------------------------------------------

Sub NewFolder()
    MkDir "C:\Study"
End Sub


Sub RemoveFolder()
   RmDir "C:\Study"
End Sub


'-------------------------------------------------
' Hands-On 3-8
' No code for this Hands-On.
' Please follow the instructions in the book.
'-------------------------------------------------


'-------------------------------------------------
' Hands-On 3-9
' Statements to be entered in the Immediate Window
'-------------------------------------------------

Worksheets("Sheet2").Activate
Range("A1:A4").Select
[A1:A4].Value = 55
Range("A1:A4").Value = 55
ActiveCell.Select


'-------------------------------------------------
' Hands-On 3-10
' Statements to be entered in the Immediate Window
'-------------------------------------------------

Print ActiveWorkbook.Name
?Application.Name
?12/3
?3+2:?12*8


'-------------------------------------------------
' Hands-On 3-11
' Statements to be entered in the Immediate Window
'-------------------------------------------------

Range("A5").Select
Range("A6:A10").Select
Range("A1, B6, C8").Select
Range("A11:D11, C12, D3").Select


'-------------------------------------------------
' Hands-On 3-12
' Statements to be entered in the Immediate Window
'-------------------------------------------------

Cells(5, 1).Select
Range(Cells(6, 1), Cells(10, 1)).Select
Cells.Select
Cells(1).Select
Cells.Item(1).Select
Cells(3).Select
Cells.Item(3).Select
Cells(16384).Select
Cells.Item(16384).Select
Cells(16385).Select
Cells.Item(16385).Select


'-------------------------------------------------
' Hands-On 3-13
' Statements to be entered in the Immediate Window
'-------------------------------------------------

Range("A1").Offset(1, 3).Select
Range("D15").Offset(2, 1).Select
ActiveCell.Offset(1, 0).Select

Selection.Offset(1, 3).Select
Selection.Offset(-2, -1).Select


'-------------------------------------------------
' Hands-On 3-14
' Statements to be entered in the Immediate Window
'-------------------------------------------------

Range("A5:A10").Select
Selection.Offset(2, 2).Select
Selection.Resize(2, 4).Select

Selection.Offset(2, 2).Resize(2, 4).Select


'-------------------------------------------------
' Hands-On 3-15
' Statements to be entered in the Immediate Window
'-------------------------------------------------

ActiveCell.End(xlToRight).Select
ActiveCell.End(xlDown).Select
ActiveCell.End(xlToLeft).Select
ActiveCell.End(xlUp).Select


'-------------------------------------------------
' Hands-On 3-16
' Statements to be entered in the Immediate Window
'-------------------------------------------------

Selection.EntireRow.Select
Selection.EntireColumn.Select

Range("A1:D15").Select
?Selection.Rows.Count
?Selection.Columns.Count


'-------------------------------------------------
' Hands-On 3-17
' Statements to be entered in the Immediate Window
'-------------------------------------------------

?Rows.Count
?Columns.Count


'-------------------------------------------------
' Hands-On 3-18
' Statements to be entered in the Immediate Window
'-------------------------------------------------

Range("A5").Formula = "Amount Due"
Range("D21").Formula = 123
Range("D21").Value = 123
Range("B4").Formula = "=D21 * 3"
?Range("A1").Value
?Range("A1").Formula

'Additional example statements following this Hands-On

?Range("A1").NumberFormat
Range("A1").NumberFormat = "$#,##0.00"


'-------------------------------------------------
' Hands-On 3-19
' Statements to be entered in the Immediate Window
'-------------------------------------------------

Range("A5").Cut Destination:=Range("A4")
Range("A3").Copy Destination:=Range("D5:F5")
Range("A4").Clear
Range("A4").Cut


'-------------------------------------------------
' Hands-On 3-20
' Statements to be entered in the Immediate Window
'-------------------------------------------------

Workbooks.Add
?Workbooks(1).Name
?Workbooks.Count
Workbooks(2).Activate
Workbooks("Practice_Excel01.xlsm").Close SaveChanges:=True
Workbooks.Open "C:\Ex07_ByExample\Practice_Excel01.xlsm"
Workbooks("Practice_Excel01.xlsm").Activate
ActiveWorkbook.SaveAs Filename:="NewChap.xlsm" 
Workbooks(1).Close
ActiveWorkbook.Close SaveChanges:=False
Workbooks.Close


'-------------------------------------------------
' Hands-On 3-21
' Statements to be entered in the Immediate Window
'-------------------------------------------------

Worksheets.Add
?Worksheets(1).Name
Worksheets(3).Select
Worksheets(Array(1,3,4)).Select
Worksheets("Sheet1").Activate
Worksheets("Sheet2").Move Before:=Worksheets("Sheet1")
Worksheets("Sheet2").Name = "Expenses"
?Worksheets.Count
Worksheets("Expenses").Delete


'-------------------------------------------------
' Hands-On 3-22
' Statements to be entered in the Immediate Window
'-------------------------------------------------

ActiveWorkbook.NewWindow
Windows.Arrange
Windows(2).Activate
?ActiveWindow.Caption
ActiveWindow.Caption = "My Window"


'-------------------------------------------------
' Hands-On 3-23
' Statements to be entered in the Immediate Window
'-------------------------------------------------

?Application.Name
Application.Caption = "My Application"
Application.Caption = "Microsoft Excel"
?Application.OperatingSystem
?Application.OrganizationName
?Application.Path
Application.Quit


